home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL24.LIT < prev    next >
Text File  |  1990-01-13  |  875b  |  18 lines
  1. *[FOSSIL24.LIT]***************************************************************
  2. * Description: Removes FOSSIL support                                        *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 5507 SUB Baud450 STATIC
  9.      IF ZBPS <> -1 THEN _
  10.         CALL QuickTPut1 ("Sorry, only 300 baud can change speed") : _
  11.         EXIT SUB
  12.      ZOutTxt$ = "Change to 450 baud (Y,[N])"
  13.      ZTurboKey = -ZTurboKeyUser
  14.      ZSubParm = 1
  15.      CALL TGet
  16.      IF ZSubParm = -1 OR NOT ZYes THEN _
  17.         EXIT SUB
  18.